home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / FIND.DIR / 00017_Script_set up text < prev    next >
Text File  |  1995-11-13  |  550b  |  23 lines
  1. on exitFrame
  2.   global gBaseListFind, gHilitedFind, gTopFind, gBottomFind, gResList, gFindFont
  3.   
  4.   set gHilitedFind = 0
  5.   
  6.   set gBaseListFind = 4
  7.   set gTopFind = 1
  8.   set gBottomFind = the number of lines in field gBaseListFind
  9.   set gResList = []
  10.   
  11.   hilite line 1 of field 6
  12.   set the textFont of cast 6 = gFindFont
  13.   
  14.   if the machineType = 256 then
  15.     set the textSize of cast 6 = 12
  16.   else
  17.     set the textSize of cast 6 = 14
  18.   end if
  19.   
  20.   set the textStyle of cast 6 = "bold"
  21.   put the text of cast 4 into cast 5
  22.   
  23. end